home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / Tilt v1.1••• / Tilt v1.1еее / stack.txt < prev    next >
Text File  |  1990-10-02  |  5KB  |  188 lines
  1. -- stack: in.1–µ–µ–µ
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x0 (none)
  4. -- protect password hash: 1898366488
  5. -- maximum user level: 2 (typing)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 7
  11. -- first background id: 2400
  12. -- card count: 12
  13. -- first card id: 9653
  14. -- list block id: 9789
  15. -- print block id: 0
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 4
  19. -- free size: 14112 bytes
  20. -- total size: 180224 bytes
  21. -- stack block size: 4608 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x00000000
  24. -- modified by hypercard version: 0x00000000
  25. -- opened by hypercard version: 0x01258000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. On openStack
  69.   global aimPoint
  70.   global defense
  71.   global oppAim
  72.   global oppThudScore
  73.   global yourThudScore
  74.   global turn
  75.   global oppCrestScore
  76.   global yourCrestScore
  77.   global oppGoneFlag
  78.   global youGoneFlag
  79.   global youGoThud
  80.   global oppGoesThud
  81.   global oppLanceWin
  82.   global youLanceWin
  83.   global youFinalVictory
  84.   global oppFinalVictory
  85.   global horseTie
  86.   global lanceTie
  87.   global winLose
  88.   global turn
  89.   global check
  90.   global oppCheck
  91.   global yourLances
  92.   global oppLances
  93.   global endIt
  94.   global youBrokeScore
  95.   global oppBrokeScore
  96.   put 0 into oppAim
  97.   put 0 into oppThudScore
  98.   put 0 into yourThudScore
  99.   put 0 into turn
  100.   put 0 into oppCrestScore
  101.   put 0 into yourCrestScore
  102.   put 0 into oppGoneFlag
  103.   put 0 into youGoneFlag
  104.   put 0 into youGoThud
  105.   put 0 into oppGoesThud
  106.   put 0 into oppLanceWin
  107.   put 0 into youLanceWin
  108.   put 0 into youFinalVictory
  109.   put 0 into oppFinalVictory
  110.   put 0 into horseTie
  111.   put 0 into lanceTie
  112.   put 0 into winLose
  113.   put 0 into turn
  114.   put 0 into check
  115.   put 0 into oppCheck
  116.   put 0 into yourLances
  117.   put 0 into oppLances
  118.   put 0 into endIt
  119.   put 0 into youBrokeScore
  120.   put 0 into oppBrokeScore
  121.   global Name
  122.   global Beloved
  123.  
  124.   hide menubar
  125.  
  126.   put 2 into aimPoint
  127.   put 22 into defense
  128.  
  129.   put "<Your Name>" into Name
  130.   put "<Your Beloved's Name>" into Beloved
  131.  
  132.  
  133.   set the lockScreen to true
  134.   Go to card 2
  135.   put 2 into x
  136.   repeat 10
  137.     set hilite of bkgnd button x to false
  138.     add 1 to x
  139.   end repeat
  140.  
  141.   put 21 into x
  142.   repeat 6
  143.     set hilite of bkgnd button x to false
  144.     add 1 to x
  145.   end repeat
  146.  
  147.   set hilite of bkgnd button 2 to true
  148.   set hilite of bkgnd button 22 to true
  149.  
  150.   put 3 into crd
  151.   repeat 6
  152.     go to card crd
  153.     put "                         " into line 2 of field 1
  154.     put "                         " into line 3 of field 1
  155.     put "                         " into line 4 of field 1
  156.     put "                         " into line 5 of field 1
  157.     put "                         " into line 6 of field 1
  158.     put "Crests Claimed: " into line 1 of field 2
  159.     put "Opponents Unhorsed: " into line 2 of field 2
  160.     put "Lances Broken: " into line 3 of field 2
  161.     put "Crests Claimed: " into line 1 of field 3
  162.     put "Opponents Unhorsed: " into line 2 of field 3
  163.     put "Lances Broken: " into line 3 of field 3
  164.     put "Lances Total: " into line 4 of field 3
  165.     put "Lances Total: " into line 4 of field 2
  166.     put crd+1 into crd
  167.   end repeat
  168.  
  169.   go to card 10
  170.   put "                                 " into line 1 of field 1
  171.   put "                                 " into line 2 of field 1
  172.   put "                                 " into line 3 of field 1
  173.   put "                                 " into line 4 of field 1
  174.   put "                                 " into line 5 of field 1
  175.   put "                                 " into line 6 of field 1
  176.   put "                                 " into line 7 of field 1
  177.   put "                                 " into line 8 of field 1
  178.   put "                                 " into line 9 of field 1
  179.   put "                                 " into line 10 of field 1
  180.   hide button 1
  181.   hide button 2
  182.   hide button 3
  183.   hide card button 2
  184.   put 1 into turn
  185.   go to card 1
  186. end openStack
  187.  
  188.